home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk205 / cross / source / src.lha / Cross / Source / CPCGlobal.mod < prev    next >
Encoding:
Modula Implementation  |  1992-02-10  |  236 b   |  21 lines
  1. IMPLEMENTATION MODULE CPCGlobal;
  2.  
  3.  
  4.  
  5. IMPORT Arts;
  6. IMPORT SYSTEM;
  7.  
  8.  
  9.  
  10. PROCEDURE myAssert(flag: BOOLEAN; txt1Ptr,txt2Ptr: SYSTEM.ADDRESS);
  11.  BEGIN
  12.   IF (NOT flag) THEN
  13.    Arts.Error(txt1Ptr,txt2Ptr);
  14.   END;
  15.  END myAssert;
  16.  
  17.  
  18.  
  19. END CPCGlobal.
  20.  
  21.